﻿Public Class Form1

    Private name As String

    Property NameProperty As String
        Get
            Return name
        End Get
        Set(value As String)
            name = value
        End Set
    End Property
 

    Private Sub btnNewUser_Click(sender As Object, e As EventArgs) Handles btnNewUser.Click
        'Dim user As User = New User()
        Dim user As New User
        user.IDProperty = 1
        AddHandler user.msgEvent2, AddressOf btnNewUser_Click

        Me.NameProperty = user.IDProperty.ToString()

        Me.Text = Me.NameProperty
    End Sub


End Class
